主题：为什么会出来空行呢

Dim KH As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim DDH As WinForm.TextBox  = e.Form.Controls("TextBox2")
For j As Integer = 1 To 5
    Dim r As Row = Tables("表A").AddNew
    For i As Integer = 1 To 1
        Dim dr As String = e.Form.Controls("TBMX_" & i & "_" & j).text
        Dim dr2 As String = e.Form.Controls("TBY_"  & j).text
        Dim dr3 As String = e.Form.Controls("TBX_" & i).text
        If dr <> "" And dr2 <> "" And dr3<> ""  Then
            r("客户") = KH.Value
            r("订单号") = DDH.Value
            r("原料") = e.Form.Controls("TBX_" & i).Value
            r("规格") = e.Form.Controls("TBY_"  & j).Value
            r("数量") = e.Form.Controls("TBMX_" & i & "_" & j).Value
        End If
    Next
Next

Dim KH As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim DDH As WinForm.TextBox  = e.Form.Controls("TextBox2")
For j As Integer = 1 To 5
    For i As Integer = 1 To 1
        Dim dr As String = e.Form.Controls("TBMX_" & i & "_" & j).text
        Dim dr2 As String = e.Form.Controls("TBY_"  & j).text
        Dim dr3 As String = e.Form.Controls("TBX_" & i).text
        If dr <> "" And dr2 <> "" And dr3<> ""  Then

Dim r As Row = Tables("表A").AddNew
            r("客户") = KH.Value
            r("订单号") = DDH.Value
            r("原料") = e.Form.Controls("TBX_" & i).Value
            r("规格") = e.Form.Controls("TBY_"  & j).Value
            r("数量") = e.Form.Controls("TBMX_" & i & "_" & j).Value
        End If
    Next
Next

For i As Integer = 1 To 2
    Forms("订单主表").Controls("Tml_" & i & "_2").Value = e.Table.Current("面料名称")
    Forms("订单主表").Controls("Tml_" & i & "_3").Value = e.Table.Current("规格")
    Forms("订单主表").Controls("Tml_" & i & "_4").Value = e.Table.Current("成份")
    Forms("订单主表").Controls("Tml_" & i & "_5").Value = e.Table.Current("计量单位")
Next

 

这样写好像不对，如果有2行，要求是每行的数值是不一样的，点击一行只加入一行数值，现在是点击后2行全部输入一样的值了，帮忙改一下吧

For i As Integer = 1 To 2
    Forms("订单主表").Controls("Tml_" & i & "_2").Value = e.Table.Rows(i-1)("面料名称")
    Forms("订单主表").Controls("Tml_" & i & "_3").Value = e.Table.Rows(i-1)("规格")
    Forms("订单主表").Controls("Tml_" & i & "_4").Value = e.Table.Rows(i-1)("成份")
    Forms("订单主表").Controls("Tml_" & i & "_5").Value = e.Table.Rows(i-1)("计量单位")
Next

 

不好意思，可能我没有解释明白

我有两个窗口

“窗口1”里面有8个控件 分别为:

Tml_1_2 (DropDownBox)  , Tml_1_3(TextBox) , Tml_1_4(TextBox) , Tml_1_5(TextBox)

Tml_2_2 (DropDownBox)  , Tml_2_3(TextBox) , Tml_2_4(TextBox) , Tml_2_5(TextBox)

 
此主题相关图片如下：cw.jpg

 

“窗口2”里面有1个控件 为:

窗口2_Table1(Table)

 
此主题相关图片如下：cw2.jpg

 

我的想法是当我点击Tml_1_2或者Tml_2_2 时，“窗口2” 弹出， 然后点击“窗口2_Table1”的数据行后

将当前行的数据对应复制到Tml_1_2   , Tml_1_3, Tml_1_4, Tml_1_5或者Tml_2_2 , Tml_2_3, Tml_2_4, Tml_2_5的控件中

 

    点击按钮，记录i值

 

vars("i") = e.Sender.Name.Split("_")(1)

 

    点击表格，这样写

 

    Forms("订单主表").Controls("Tml_" & vars("i") & "_2").Value = e.Table.Current("面料名称")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_3").Value = e.Table.Current("规格")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_4").Value = e.Table.Current("成份")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_5").Value = e.Table.Current("计量单位")

vars("i") = e.Sender.Name.Split("_")(1)

写在按钮里对吗？

    Forms("订单主表").Controls("Tml_" & vars("i") & "_2").Value = e.Table.Rows(i-1)("面料名称")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_3").Value = e.Table.Rows(i-1)("规格")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_4").Value = e.Table.Rows(i-1)("成份")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_5").Value = e.Table.Rows(i-1)("计量单位")

那这个怎么写啊

 

此主题相关图片如下：cw3.jpg

    Forms("订单主表").Controls("Tml_" & vars("i") & "_2").Value = e.Table.Current("面料名称")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_3").Value = e.Table.Current("规格")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_4").Value = e.Table.Current("成份")
    Forms("订单主表").Controls("Tml_" & vars("i") & "_5").Value = e.Table.Current("计量单位")

现在可以，谢谢