老师们,有两个问题:1.某列为双精度类型,但我要将这列的某行(汇总行和汇总比率行)类型更改为文本型和指定的Format格式,报错,
Dim i1 As Double
Dim ii1 As Double
i1 = DataTables("全检子表").Compute("Count(实测值样品1判定)","全检单编号 = '" & Tables("全检子表").Current("全检单编号") & "' And 规格标准 <> '汇总' And 规格标准 <> '汇总比率'")
ii1 = DataTables("全检子表").Compute("Count(实测值样品1判定)","全检单编号 = '" & Tables("全检子表").Current("全检单编号") & "' And 实测值样品1判定 = 'OK' And 规格标准 <> '汇总'And 规格标准 <> '汇总比率'")
Dim dr As DataRow
dr = DataTables("全检子表").Find("规格标准 = '汇总比率' And 全检单编号 = '" & Tables("全检子表").Current("全检单编号") & "'") '找出编号为03的产品
MessageBox.Show(i1)
MessageBox.Show(ii1)
If dr IsNot Nothing Then
dr("实测值样品1") = ii1 / i1
MessageBox.Show(ii1/i1)
Dim rr As DataRow
If dr("实测值样品1") > 0.999 Then
rr = DataTables("全检子表").Find("规格标准 = '汇总' And 全检单编号 = '" & Tables("全检子表").Current("全检单编号") & "'") '找出编号为03的产品
rr("实测值样品1") = "OK"
MessageBox.Show("OK")
Else
rr("实测值样品1") = "NG"
MessageBox.Show("NG")
End If
End If
2.可以设置某一行的Combolis属性,可下拉选择,其他行不需要,代码也一直报错~~
Dim rs As Row = Tables("APQP基本资料主表.AQPQ基本资料子表").addnew()
rs("项目编号") = Tables("APQP基本资料主表").Current("项目编号")
rs("序号") = lb.value
rs("项目") = "相关"
rs("运输").Combolis = "○|⊙|▲|△"
加好友 
发短信
Post By：2016/1/23 10:35:00 [只看该作者]
