VB编程问题，麻烦高手帮我看看

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:43:47
'计算模具工作部分尺寸
'定义变量：最大双面间隙、最小双面间隙、双面间隙、磨损系数、凹模偏差、凸模偏差、凹模工作部分尺寸和凸模工作部分尺寸
Dim ZMax, ZMin, z, X, DieWarp, PunchWarp, Warp, DieD, PunchD As Single
'从数据库中查询双面间隙双面间隙和凸凹模偏差
rs.Open "SELECT * FROM 冲裁模初始双面间隙 where 板料厚度=" & MaterialThickness & " ", Cn1
ZMax = rs.Fields(MaterialType + "Zmax"): ZMin = rs.Fields(MaterialType + "Zmin")
rs.Close

z = ZMax - ZMin
rs.Open "SELECT * FROM 冲裁模的磨损系数（圆形） where 材料厚度上限>=" & MaterialThickness & " and 材料厚度下限<" & MaterialThickness & " and 工件公差上限>" & PartTolerance & " and 工件公差下限<=" & PartTolerance & "", Cn1
X = rs.Fields("磨损系数")
rs.Close

rs.Open "SELECT * FROM 冲裁凸凹模偏差 where 基本尺寸下限<" & PartDiameter & " and 基本尺寸上限>= " & PartDiameter & " ", Cn1
DieWarp = rs.Fields("凹模偏差"): PunchWarp = rs.Fields(&quo

1、 rs.Fields(MaterialType + "Zmax")不明白你的意图，一般 rs.Fields(）中括号内不是字段代号，就是字段名，例如rs.Fields(0）或 rs.Fields("板料厚度")。
2、ZMax, ZMin, z, X, DieWarp, PunchWarp, Warp, DieD, PunchD变量中除PunchD是单精度外，其他都是变体变量。
3、如果要在 rs.Fields(）中括号内放置变量应该是 rs.Fields(" & 变量名 &"）

rs.Open "SELECT * FROM 冲裁模初始双面间隙 where 板料厚度=" & MaterialThickness & " ", Cn1
似乎要改成：
rs.Open "SELECT * FROM 冲裁模初始双面间隙 where 板料厚度='" & MaterialThickness & " '", Cn1

rs.Open "SELECT * FROM 冲裁凸凹模偏差 where 基本尺寸下限<" & PartDiameter & " and 基本尺寸上限>= " & PartDiameter & " ", Cn1
似乎要改成：
rs.Open "SELECT * FROM 冲裁凸凹模偏差 where 基本尺寸下限<'" & PartDiameter & "' and 基本尺寸上限>= '" & PartDiameter & "' ", Cn1

改为以下语句即可：
ZMax = rs.Fields(MaterialType & Zmax): ZMin = rs.Fields(MaterialType & Zmin)

这一句有问题：
ZMax = rs.Fields(MaterialType + &quo