ÈçºÎÔÚdatagridviewµÄ×îºóÒ»ÐÐ×öijÁÐÖµµÄºÍ»òÊdz˻ý¡£Òª¼ÆËã3¡¢4¡¢5Áи÷ÁеĺÍ,
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.Rows.Add(TextBox3.Text, TextBox2.Text)
......
¶ÔÓÚEXCELÎļþµÄÄÚÈÝ£¬Ï£Íû°´ÕÕÒ»¶¨¸ñʽת»»ÎªxmlÎļþ£¬EXCELÄÚÈÝÀýÈ磺
Voucher_Id Oper Entry_Id ZhaiYao Acc_Code JieFang DaiFang fName1 fNeiRong1 fName2 fNeiRong2
1 Admin 1 ²âÊÔÕªÒª 540401 1000 ²¿ÃÅ 02005 ÏîÄ¿¹¤³Ì 02005001
1 Admin 2 ²âÊÔÕªÒª 100101 1000
2 Admin2 1 ²âÊÔÕªÒª2 540402 ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = <_2_ZCHGZBH> WCP10070157846 </_2_ZCHGZBH>
¿ÉÒÔ¿´µ½= <_2_ZCHGZBH> WCP10 ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Printer.Line -(Printer.CurrentX + 100, Printer.CurrentY)
ѧϰ
ScaleMode ÊôÐÔ
µ±Ê¹ÓÃͼÐη½·¨»òµ÷Õ ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
DTP2.Enabled = False
End If
End Sub ......
Ò»¸ö Óû§¿Ø¼þ 2¸öÃÜÂë¿Ø¼þ Ò»¸ö °´Å¥¿Ø¼þ 2¸öÃÜÂë¿Ø¼þÓÃÀ´ÑéÖ¤ÃÜÂë ¶øÇÒÓû§¿Ø¼þÐèÒªÑéÖ¤ÊÇ·ñÓÐÓû§Ãû´æÔÚ È»ºó×¢²áÁ¬½Óµ½MSSQL 2000µÄdataÊý¾Ý¿âÖÐµÄ user±íµÄ userºÍ passÖÐÈ¥ ËÄÜ·ñ½ÌÎÒһϠÈçºÎ¸ã
ËÄܲ»ÄܸøÎÒ¸öÍêÕûµÄ´úÂë лл ½ñÌìÊÔÁ˺ܶà´Î ¾ÍÊÇÓÐÎÊÌâ
Õâô¼òµ¥»¹Óÿؼþ£¿
Ä ......