主题：[求助]提取变量，填入到关联行的指定列

1、大概这样：

 

Dim i As Integer = 100 ‘输入的起始值

Dim s As Integer = 1  '输入的补偿

For Each r as row in Tables("父表.子表").Rows

    r("物流编号") = i

    i = i + 3

Next

 

2、设置订单主表的DataColChanged事件：

 

If Forms("窗口名").Opened Then

    If e.DataCol.Nsame = "编号" Then

        e.DataRow("快递公司") = Forms("窗口名").Controls("控件名").Value

    End If
End If

 

3、

e.Form.Controls("控件名1").Value = Nothing
e.Form.Controls("控件名2").Value = Nothing

e.Form.Controls("控件名3").Value = Nothing

 

先参照着做，有问题再说。

 

你要输入两个值，没有必要社会设置在文本框的TextChanged事件中，设置在某个按钮中：

 

Dim i As Integer = 100 ‘输入的起始值

Dim s As Integer = 1  '输入的补偿

For Each r as row in Tables("父表.子表").Rows

    r("物流编号") = i

    i = i + s

Next

 

或者设置在第二个文本框的Leave事件中

大概这样：

 

Dim txt1  As String = e.Form.Controls("xxx1").Text
Dim txt2  As String = e.Form.Controls("xxx2").Text
If txt1 > "" AndAlso txt2 > "" Then
    Dim i As Integer = txt1
    Dim s As Integer = 1txt2
    For Each r As Row In Tables("父表.子表").Rows
        r("物流编号") = i
        i = i + s
    Next
End If