Office中国论坛/Access中国论坛

标题: 如何用ADO添加这种记录 [打印本页]

作者: 简 时间: 2010-5-6 13:36
标题: 如何用ADO添加这种记录
主窗体的控件未绑定，子窗体数据表绑定表tblBOM上。
我希望我输入数据时，用ADO把主子窗体中的新数据添加在表中，该如何操作呢。

[attach]42146[/attach]

[attach]42147[/attach]

作者: kangking 时间: 2010-5-6 14:28
不知道行否。

[attach]42148[/attach]

作者: 简 时间: 2010-5-6 22:39
谢谢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

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

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

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

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

作者: kangking 时间: 2010-5-7 11:35
直接用 Eval() 函数就行了。基本的用法是：x=eval("200*100*45")，这时 x=900000.具体你可以参考一下帮助。

作者: todaynew 时间: 2010-5-7 13:45
dim A
me.尺寸.value="200×100×45"
A=Split(me.尺寸.value,"×")
me.体积.value=A(0)*A(1)*(2)

作者: 简 时间: 2010-5-7 21:43
谢谢楼上的两位老师，那么像尺寸中类似“Φ200×100”的情况，要计算体积，又该怎么处理呢？

作者: todaynew 时间: 2010-5-8 06:32
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

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

请问该怎么处理呢？

作者: todaynew 时间: 2010-5-8 14:16
SELECT tblBOM.编号, tblBOM.品号, tblBOM.设计员, tblBOM.设计日期, tblBOM.工件名称, tblBOM.材料, tblBOM.备料尺寸, tblBOM.件数, tblBOM.单重, tblBOM.总重
FROM tbcl INNER JOIN tblBOM ON tbcl.材料 = tblBOM.材料
ORDER BY tblBOM.品号, tbcl.材料ID;

作者: ycxchen 时间: 2010-5-10 08:25
5---8的代码没例子难明，楼主最好将应用了这些代码的例子传上让大家学习下。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)