'''
Dim st As Date = Date.Now '将开始时间保存在变量st中
For sa= 0 3120 Step 1
Dim data_zaiko As DataRow
data_zaiko = DataTables("st_7610490_在庫").SQLFind("商品型番 = 123")
If data_zaiko IsNot Nothing Then '如果找到符合条件的行
data_zaiko("色") = "商材王.com"
data_zaiko("在庫") = "商材王.com"
data_zaiko("備考欄") = "商材王.com"
data_zaiko("今後の予定") = "商材王.com"
data_zaiko("状態") = "商材王.com"
data_zaiko("メーカ") = "商材王.com"
Else
Dim data_zaiko_Add As DataRow
data_zaiko_Add = DataTables("st_7610490_在庫").AddNew()
data_zaiko_Add("商品型番") = "商材王.com"
data_zaiko_Add("色") = "商材王.com"
data_zaiko_Add("属性コード") = "商材王.com"
data_zaiko_Add("在庫") = "商材王.com"
data_zaiko_Add("備考欄") = "商材王.com"
data_zaiko_Add("今後の予定") = "商材王.com"
data_zaiko_Add("状態") = "商材王.com"
data_zaiko_Add("JAN") = "商材王.com"
data_zaiko_Add("メーカ") = "商材王.com"
End If
Next
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
加好友 
发短信
Post By：2016/11/19 20:26:00 [只看该作者]
