Code lvt

[lvtonet]

- Max in field
Comm_db.CommandText = "Select Max(manv) from nhanvien"
Read_db.Value = Comm_db.ExecuteReader
num_rec = Read_db.GetValue(0)
last_ma = "0000" & num_rec+1
If StrLength(last_ma)>5 Then
last_ma = SubString( last_ma,StrLength(last_ma)-5,5)
End If
Read_db.Close

 

[Erel]

???

 

[lvtonet]

- Help me code error :

Sub Load_list
List_sp.new1("Form3",0,0,Form3.width, Form3.height-56)
Btnsv.Top = List_sp.Height + (Form3.height - List_sp.Height - btnsv.Height)/2
Colt_db.New1
List_sp.addcolumn(" MASP",60,0,True, Colt_db.TimeStamp)
List_sp.addcolumn(" TÊN SẢN PHẨM",120,0,True, Colt_db.VarChar(10))
List_sp.addcolumn("SL",34,0,True, Colt_db.VarChar(10))
List_sp.fullrowselect=True
List_sp.CheckBoxes =True
List_sp.Visible=True
List_sp.Fontsize=9
List_sp.SetRowColor(cBeige,cSilver)
List_sp.RemoveAllRows
List_sp.LoadSQL(AppPath & "\OData.s3db", "Sanpham","select masp, tensp from sanpham limit 0,11","",False)
List_sp.focus
edit_list("List_sp")
End Sub

Sub edit_list(lst)
Obj_list.New1(False)
lstName = lst
Obj_list.FromControl(lstName) ' Error here :sign0085:
events_mouse.New1(Obj_list.Value,"MouseDown" )
Timer1.Interval = 10
End Sub
= "Cam on"

 

[lvtonet]

- How to code support for device

Sub SetAlternateRowsColor (Table)
obj.New1(True)
o.New1(False)
TableName = table
obj.FromControl(TableName)
If cPPC Then Return 'devices do not support this method :sign0085:
obj.FromControl(Table)
o.CreateNew("System.Drawing.Color" & o.System_Drawing)
o.Value = o.RunMethod2("FromArgb",cSilver,"System.Int32")
obj.Value = obj.GetProperty("TableStyles")
obj.Value = obj.GetProperty2("Item",0)
obj.SetProperty2("AlternatingBackColor", o.Value)
End Sub

 

[Erel]

It is not possible to show the alternating colors on the device Table control, because it is not supported.

 

[lvtonet]

help

- How to write code virtual keyboard and barcode scanners, help me.
- I from vietnam, how to buy a license for download code of forum :sign0085: