wb.AddForm("","form1","scbgd.htm")
With wb.AddInputGroup("form1", "ipg1", "客户资料")
For Each r As DataRow In dt.DataRows
' msgbox(r("_Identify"))
With .AddInput("ID", "ID", "number")
.value = r("_Identify")
.Readonly= True
End With
With .AddInput("规格", "规格", "Text")
.value = r("规格")
.Readonly= True
End With
With .AddInput("客户", "客户", "Text")
.value = r("客户")
.Readonly= True
End With
With .AddInput("颜色", "颜色", "Text")
.value = r("颜色")
.Readonly= True
End With
With .AddInput("型号", "型号", "Text")
.value = r("型号")
.Readonly= True
End With
With .AddInput("钢板", "钢板", "Text")
.value = r("钢板")
.Readonly= True
End With
With .AddInput("底板", "底板", "Text")
.value = r("底板")
.Readonly= True
End With
With .AddInput("数量", "数量", "Text")
.value = r("数量")
.Readonly= True
End With
With .AddInput("备注", "备注", "Text")
.value = r("备注")
.Readonly= True
End With
With .AddInput("批号", "批号", "Text")
.value = r("批号")
.Readonly= True
End With
With .AddInput("日期", "日期", "date")
.value = Date.Today
.Readonly= True
End With
wb.AppendHTML("<br/>")
Next
加好友 
发短信
Post By：2023/4/23 8:56:00 [显示全部帖子]
此主题相关图片如下：验证.png
