如何用ADO添加这种记录

简

主窗体的控件未绑定，子窗体数据表绑定表tblBOM上。
我希望我输入数据时，用ADO把主子窗体中的新数据添加在表中，该如何操作呢。

kangking

不知道行否。

简

谢谢KangKing，我在你的例子基础上稍修改了一下，修改如下：

Private Sub Form_Current()
    Dim rs As Recordset
    If Me.NewRecord Then
        Set rs = Me.Recordset
        rs.AddNew
        rs(1) = Me.Parent.Form.txtmingchen
        rs(2) = Me.Parent.Form.cbogongyi
        rs(3) = Me.Parent.Form.txtriqi
        rs.Update
    End If

End Sub

这样就初步达到了我想要的效果。

简

再借这个例子提另外一个问题，如果我在子窗体的“尺寸列”上输入类似“A×B×C"的字符数据，然后需要计算单重，单重的公式就是尺寸列数据的乘积。

比如我在我尺寸列上输入“200×100×45”，单重的值就是900000。

我知道在单重时应将尺寸列数据“A×B×C"拆成A、B、C数字，然后再在单重里相乘。但我不知在代码上应该如何拆散“A×B×C"并计算，所以请大家帮帮忙，好吗？

kangking

直接用 Eval() 函数就行了。基本的用法是：x=eval("200*100*45")，这时 x=900000.具体你可以参考一下帮助。

todaynew

dim A
me.尺寸.value="200×100×45"
A=Split(me.尺寸.value,"×")
me.体积.value=A(0)*A(1)*(2)

简

谢谢楼上的两位老师，那么像尺寸中类似“Φ200×100”的情况，要计算体积，又该怎么处理呢？

todaynew

dim A
me.尺寸.value="Φ200×100"
A=Split(mid(me.尺寸.value,2),"×")
me.体积.value=A(0)*A(0)*A(1)*3.14/4
结合起来，可以如下：
dim A
if mid(me.尺寸.value,1,1)="Φ" then
   A=Split(mid(me.尺寸.value,2),"×")
   me.体积.value=A(0)*A(0)*A(1)*3.14/4
else
   A=Split(me.尺寸.value,"×")
   me.体积.value=A(0)*A(1)*A(2)
end if
如果形状再多的话，就在窗体上加一个描述形状的组合框控件其名曰形状者也，然后如下：
dim A
select case me.形状.value
       case "圆柱体"
            算法
       case  "棱柱体"
           算法
       case "圆锥体"
           算法
      case  "棱锥体"
           算法
。。。。
end select

简

我再借这个例子，提一个排序问题。
我希望窗体打开时，子窗体按材料列的值的指定顺序来排序。现材料列的值有45，1Cr18Ni9Ti，A3~~~也许后面还会有铝，铜等，我希望材料列的顺序是1Cr18Ni9Ti，A3，45，铜，其它~~~

请问该怎么处理呢？

todaynew

SELECT tblBOM.编号, tblBOM.品号, tblBOM.设计员, tblBOM.设计日期, tblBOM.工件名称, tblBOM.材料, tblBOM.备料尺寸, tblBOM.件数, tblBOM.单重, tblBOM.总重
FROM tbcl INNER JOIN tblBOM ON tbcl.材料 = tblBOM.材料
ORDER BY tblBOM.品号, tbcl.材料ID;