xojo - xojo 中是否有不重复相同行的方法？

Question

我在 xojo 中做了这个网格，问题是即使我出去和回来，它也会像以前一样重复我的行，

那是只有 3 条记录的原始表：第一个屏幕截图

然后我做了一个添加行的方法：

Dim i As Integer
Dim v As String
Dim count As Integer
Dim theSQL As String
Dim f As FolderItem
Dim found As Boolean
Dim fin As Integer
Dim vdescrizione1 As String
dim vdatafin as String
dim VnumRec as Integer


//DB MYSQL
Dim db As MySQLCommunityServer
Dim dbfile As folderItem
Dim rec As databaserecord
Dim rs As recordSet

//initialization DB MYSQL
rec=New databaserecord
db=New MySQLCommunityServer

//CONNECTION WEB
db.host ="----"
db.userName = "----"
db.password ="-----"
db.port=----
db.databaseName ="----"

If db.connect Then
Else
MsgBox "MYSQL Portal Data File not available" 
End If


theSQL="Select id,nome,cognome,sesso,residenza,annoNascita FROM CnaPr.Utente"

rs=db.sQLSelect(theSQL)

dim intCycle as Integer=1
dim intMax as Integer = 1000

dim intRow as Integer
dim vfp as Integer
dim r as new Random
dim cValue as Color = rgb( r.InRange( 0, 255 ), r.InRange( 0, 255 ), r.InRange( 0, 255 ) )
dim blnED as Boolean

while not rs.eOF
dim dict as new Dictionary( "K_ID" : rs.field("id").value, _
"K_Nominativo" :  rs.field("nome").value, _
"K_Cognome" :  rs.field("cognome").value, _
"KSesso" :  rs.field("sesso").value,_
"KFinePratica" :  blnED, _
"K_Residenza" :  rs.field("residenza").value,_
"K_Data" :  rs.field("annoNascita").value)

 dim newRow as new GraffitiWebGridRow( dict )
 newRow.Tag = intRow
 AllRows.Append( newRow )
 rs.MoveNext
 Wend

 gwpMain.TotalPages = Ceil(intMax / 20)
 LoadPage( 0 )

第二种方法：

dim pageMin as Integer = pageIndex * rowsPerPage
//rowsPerPage
dim pageMax as Integer = pageMin + rowsPerPage
dim maxPages as Integer = (AllRows.Ubound +1 ) / rowsPerPage

if pageIndex < 0 or pageIndex > maxPages then Return

GridList.LockUpdate = True
GridList.DeleteAllRows()

for intCycle as Integer = pageMin to Min( pageMax - 1, AllRows.Ubound )
GridList.AddRow( AllRows(intCycle) )
next
GridList.LockUpdate = False
currentPage = pageIndex

当我返回上一页然后返回表格时，它并没有留下我拥有的记录，而是相反，它复制了它们， 第二个屏幕截图

标签： xojo