Dim rq = e.Form.Controls("rq").value

Dim bh As String = e.Form.Controls("bh").value

Dim cp As String = e.Form.Controls("cp").value

Dim kh As String = e.Form.Controls("kh").value

Dim gy As String = e.Form.Controls("gy").value

Dim dj As  Double = e.Form.Controls("dj").value

Dim zk As  Double = e.Form.Controls("zk").value

Dim sl As  Double = e.Form.Controls("sl").value

Dim cmd As new sqlcommand

cmd.C

cmd.CommandText="insert into {订单} ([编号],[产品],[客户],[雇员],[单价],[折扣],[数量],[日期]) "

cmd.CommandText &= "values (\'" & bh & "\',\'" & cp & "\',\'" & kh & "\',\'" & gy & "\',\'" & dj & "\',\'" & zk & "\',\'" & sl & "\'," & iif(rq Is Nothing,"null","\'" & rq & "\'") & ") "

cmd.ExecuteNonQuery