【文章內(nèi)容簡介】 。39。39。有 點 暈 ElseIf = 0 Then If fs Is Nothing Then Dim conn As New (Initial Catalog =dddd。Data Source = BIRD2C8AF63234\YB。Integrated Security = SSPI。) Dim sqlm As New = INSERT INTO 商品 (商品號 ,商品名 ,價 格 , 廠家 ,詳細描述 ,種類 ,上 架 日期 ,賣家 ID) VALUES (@_商品號 ,@_商品名 ,@_價格 ,@_廠 家 ,@_ 詳細描述 ,@_種類 ,@_上 架 日期 ,@_賣 家 ID) amp。= INSERT INTO 書籍 (商品號 ,出版社 ,作者 ) VALUES (@_商品號 ,@_出 版社 ,@_作 者 ) = conn goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 號 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 價 格 , ()) Dim prm3 As New (@_ 廠 家 , Trim()) Trim()) Trim()) Trim()) Dim prm4 As New (@_種類 , ) Dim prm5 As New (@_ 詳 細 描 述 , 39。prm6 的缺損 時 為了下面情況的代碼一致的需要 Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_賣家 ID, userID) Dim prm9 As New (@_ 出 版 社 , Dim prm10 As New (@_ 作 者 , (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm7) (prm8) (prm9) (prm10) Try () () 39。執(zhí)行 插 入 語句 () Catch ex As Exception MsgBox() End Try MsgBox(商品已成功上架 ) clear() Else Dim conn As New (Initial Catalog =dddd。Data Source = BIRD2C8AF63234\YB。Integrated Security = SSPI。) Dim sqlm As New = INSERT INTO 商品 (商品號 ,商品名 ,價 格 , 廠家 ,詳細描述 ,種類 ,圖片 ,上架日期 ,賣家 ID) VALUES (@_商品號 ,@_商 品 名 ,@_價格 ,@_廠 家 ,@_詳細 描 述 ,@_種類 ,@_圖片 ,@_上 架日期 ,@_賣 家 ID) amp。= INSERT INTO 書籍 (商品號 ,出版社 ,作者 ) VALUES (@_商品號 ,@_出 版社 ,@_作 者 ) = conn Dim Data() As Byte (Data, 0, Int()) 39。商 品號實現(xiàn)自動順序產(chǎn)生，為此，應(yīng)有一個公共變量 num 來 記 錄 goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 號 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 價 格 , ()) Dim prm3 As New (@_廠家 , ) Dim prm4 As New (@_種類 , ) Dim prm5 As New (@_詳細描述 , ) Dim prm6 As New (@_ 圖 片 , , Int(), , False, 0, 0, , , Data) Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_賣家 ID, userID) Dim prm9 As New (@_出版社 , ) Dim prm10 As New (@_作者 , ) (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm6) (prm7) (prm8) (prm9) (prm10) Try () () 39。執(zhí)行 插 入語句 () () Catch ex As Exception MsgBox() End Try MsgBox(商品已成功上架 ) clear() End If 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。接很 上 面的那個，超暈 ElseIf = 3 Then If fs Is Nothing Then Dim conn As New (Initial Catalog =dddd。Data Source = BIRD2C8AF63234\YB。Integrated Security = SSPI。) Dim sqlm As New = INSERT INTO 商品 (商品號 ,商品名 ,價 格 , 廠家 ,詳細描述 ,種類 ,上 架 日期 ,賣家 ID) VALUES (@_商品號 ,@_商品名 ,@_價格 ,@_廠 家 ,@_ 詳細描述 ,@_種類 ,@_上 架 日期 ,@_賣 家 ID) amp。= INSERT INTO 服 飾 ( 商品 號 , 型 號 ) VALUES (@_商品號 ,@_型 號 ) = conn goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 號 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 價 格 , ()) Dim prm3 As New (@_廠家 , ) Dim prm4 As New (@_種類 , ) Dim prm5 As New (@_詳細描述 , ) 39。prm6 的缺損 時 為了下面情況的代碼一致的需要 Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_賣家 ID, userID) Dim prm9 As New (@_型號 , ) (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm7) (prm8) (prm9) Try () () 39。執(zhí)行 插 入語句 () Catch ex As Exception MsgBox() End Try Else MsgBox(商品已成功上架 ) clear() Dim conn As New (Initial Catalog =dddd。Data Source = BIRD2C8AF63234\YB。Integrated Security = SSPI。) Dim sqlm As New = INSERT INTO 商品 (商品號 ,商品名 ,價 格 , 廠家 ,詳細描 述 ,種類 ,圖片 ,上架日期 ,賣家 ID) VALUES (@_商品號 ,@_商 品 名 ,@_價格 ,@_廠 家 ,@_詳細 描 述 ,@_種類 ,@_圖片 ,@_上 架日期 ,@_賣 家 ID) amp。= INSERT INTO 服 飾 ( 商品 號 , 型 號 ) VALUES (@_商品號 ,@_型 號 ) = conn Dim Data() As Byte (Data, 0, Int()) 39。商 品號實現(xiàn)自動順序產(chǎn)生，為此，應(yīng)有一個公共變量 num 來 記 錄 goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 號 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 價 格 , ()) Dim prm3 As New (@_廠家 , ) Dim prm4 As New (@_種類 , ) Dim prm5 As New (@_詳細描述 , ) Dim prm6 As New (@_ 圖 片 , , Int(), , False, 0, 0, , , Data) Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_賣家 ID, userID) Dim prm9 As New (@_型號 , ) (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm6) (prm7) (prm8) (prm9) Try () () 39。執(zhí)行 插 入語句 () () Catch ex As Exception MsgBox() End Try MsgBox(商品已成功上架 ) clear() End If End If End If End Sub Private Sub Combbsort_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles If 0 And 3 Then = True = False = False = False = True = False = False = False Else : If = 0 Then = False = True = True = False = False = True = True = False Else = True = True = True = True = False = False = False = False End If End If End Sub Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles 39。為我要買的 dataset11 添加 賣 家名和選擇列 Dim mjm As DataColumn = New DataColumn(賣家名 ) = () = 品 .(mjm) Dim