With wb.AddInputGroup("form1","ipg1","客户【基本资料】") with .AddInput("客户编码","客户编码","text")
.Value = dr("客户编码")
.Readonly= True
end with .AddInput("客户名称","客户名称","text").Value = dr("客户名称")