'Dim StrConn As String
'StrConn = "user ID = sa; password =;"
'StrConn += "database = MASTERWEB; server = (local);"
'StrConn += "connect timeout =30"
'Conn = New SqlConnection(strConn)
Conn = New OleDbConnection(gstrCon)
Dim SqlDataset As New DataSet()
StrSql = "SELECT USER_ID, PASSWORD, USER_NAME, KOKYAKU_ID, ORDER_OK "
StrSql = StrSql & "FROM T_MUSER "
StrSql = StrSql & "WHERE (KOKYAKU_ID = 991)" '" & Session("KOKYAKU_ID") & "')"
'Dim SqlAdaper As New SqlDataAdapter()
Dim sqladaper As New OleDbDataAdapter()
DbOpen()
'SqlAdaper = New SqlDataAdapter(StrSql, Conn)
sqladaper = New OleDbDataAdapter(StrSql, Conn)
SqlAdaper.Fill(SqlDataset, "DataTable")
Dim Dv As New DataView()
Dv = New DataView(SqlDataset.Tables("DataTable"))
Dv.AddNew() 'add a empty row
DGLogin.DataSource = Dv 'set the datagrid datasource
DGLogin.EditItemIndex = Dv.Table.Rows.Count 'set the last row edit
DGLogin.DataBind() 'binding the datagrid
Dim StrConn As String
StrConn = "user ID = sa; password =;"
StrConn += "database = MASTERWEB; server = (local);"
StrConn += "connect timeout =30"
Conn = New SqlConnection(StrConn)
Dim SqlDataset As New DataSet()
StrSql = "SELECT USER_ID, PASSWORD, USER_NAME, KOKYAKU_ID, ORDER_OK "
StrSql = StrSql & "FROM T_MUSER "
StrSql = StrSql & "WHERE (KOKYAKU_ID = 991)"
Dim SqlAdaper As New SqlDataAdapter()
OpenData()
SqlAdaper = New SqlDataAdapter(StrSql, Conn)
SqlAdaper.Fill(SqlDataset, "DataTable")
Dim Dv As New DataView()
Dv = New DataView(SqlDataset.Tables("DataTable"))
DGLogin.DataSource = Dv
DGLogin.DataBind()
DGLogin.EditItemIndex = 2
CloseData()
这是我的代码
帮我给改改吧
加进去就行
谢谢
Dim StrConn As String
StrConn = "user ID = sa; password =;"
StrConn += "database = MASTERWEB; server = (local);"
StrConn += "connect timeout =30"
Conn = New SqlConnection(StrConn)
Dim SqlDataset As New DataSet()
StrSql = "SELECT USER_ID, PASSWORD, USER_NAME, KOKYAKU_ID, ORDER_OK "
StrSql = StrSql & "FROM T_MUSER "
StrSql = StrSql & "WHERE (KOKYAKU_ID = 991)"
Dim SqlAdaper As New SqlDataAdapter()
OpenData()
SqlAdaper = New SqlDataAdapter(StrSql, Conn)
SqlAdaper.Fill(SqlDataset, "DataTable")
Dim Dv As New DataView()
Dv = New DataView(SqlDataset.Tables("DataTable"))
DGLogin.DataSource = Dv
DGLogin.DataBind()
CloseData()