![](images/userface/image1.gif)
加好友 发短信
等级:小狐
帖子:321
积分:2468
威望:0
精华:2
注册:2013/1/16 19:33:00
|
Post By:2013/5/30 11:45:00 [只看该作者]
For Each t As Col In Tables("生产进度表").Cols Dim r As Row = Tables("生产进度表").Current If t.Name = "零件名称" Then r("零件名称") = dr("品名") r("零件号") = dr("零件号") ElseIf t.Name = "工艺原料" Then r("工艺原料") = dr("零件号") End If e.Form.Close()Next这段是干嘛呢
|
|