Значение из выделеной строки в Datagrid - VB
Формулировка задачи:
Доброго всем времени суток! :)
Я к вам с очередной проблемой:
У меня есть датагрид с полями user, firm, ... хочу чтобы при двойном щелчке на строке открывался документ DocWord = WordApp.Documents.Open(App.Path & "\user\" & firm & ".doc")
т.е. при двойном щелчке нужно считывать значения ячеек в выделеной строке.
Подскажите, как это сделать?
Я к вам с очередной проблемой:
У меня есть датагрид с полями user, firm, ... хочу чтобы при двойном щелчке на строке открывался документ DocWord = WordApp.Documents.Open(App.Path & "\user\" & firm & ".doc")
т.е. при двойном щелчке нужно считывать значения ячеек в выделеной строке.
Подскажите, как это сделать?
Решение задачи: «Значение из выделеной строки в Datagrid»
textual
Листинг программы
<font color="blue">Public</font> lngId <font color="blue">as</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Sub</font> DataGrid1_ButtonClick(<font color="blue">ByVal</font> ColIndex <font color="blue">As</font> <font color="blue">Integer</font>)
<font color="blue">Dim</font> strFirm <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> strUser <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Select</font> <font color="blue">Case</font> ColIndex
<font color="blue">Case</font> <font color="darkblue"><b>0</b></font>
lngId = DataGrid1.Text
Form3.Show
<font color="blue">End</font> <font color="blue">Select</font>
<font color="blue">End</font> <font color="blue">Sub</font>
Form3
<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
<font color="blue">Dim</font> strSQL <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> cnn <font color="blue">As</font> <font color="blue">New</font> ADODB.Connection
<font color="blue">Dim</font> adr <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset
<font color="blue">Dim</font> strConn <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> number <font color="blue">As</font> <font color="blue">String</font>
strConn = <font color="teal">"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;"</font> & _
<font color="teal">"DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"</font>
cnn.CursorLocation = adUseClient
cnn.ConnectionString = strConn
cnn.<font color="blue">Open</font>
adr.<font color="blue">Open</font> <font color="teal">"select * from docs WHERE id="</font> & Forma2.lngId, cnn, adOpenDynamic, adLockBatchOptimistic
<font color="blue">Set</font> DataGrid1.DataSource = adr
ShowTitleBar False
Form3.<font color="blue">Width</font> = Screen.<font color="blue">Width</font>
DataGrid1.<font color="blue">Width</font> = Screen.<font color="blue">Width</font> - <font color="darkblue"><b>30</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>