主题：保存到表的问题

Dim ter() As String = {"面料名称", "面料规格", "面料颜色", "面料门幅", "面料单位", "面料单耗", "面料合计", "供应商"}
For m1 As Integer = 1 To 9

If Forms("订单主表").ExistControl("Tml_" & m1 & "_1") = True Then

Dim r As DataRow = ddm.AddNew
    For y As Integer = 0 To ter.Length - 1
            Dim drm As String = Forms("订单主表").Controls("Tml_" & m1 & "_" & y + 1).text
            If drm <> "" Then
                Dim Tea() As String = {"合同号", "款号"}

For Each TTL As String In Tea
                ……